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IDENTIFICATION 
PRODUCT CODE: AC-9431D-MC 
PRODUCT NAME: CZTRBDO TR79 UTILITY PROGRAMS 
PRODUCT DATE: FEBURARY 1982 
MAINTAINER: MERRIMACK DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS COMMITMENT BY DIGITAL EQUIPTMENT CORPORATION. 
DIGITAL EQUIPTMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 

THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 


DIGITAL EQUIPTMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPTMENT THAT IS NOT SUPPLIED BY DIGITAL. 





COPYRIGHT (C) 1976,1982 
DIGITAL EQUIPTMENT CORPORATION, MAYNARD MASS. 
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TR79 UTILITY PROGRAM 


TABLE OF CONTENTS 

SECTION SUBJECT 

1. ABSTRACT 
2 REQUIREMENTS 
3 LOADING PROCEDURE 
4. STARTING PROCEDURE 
5. RESTRICTICNS 
6. CONSOLE SETTINGS 
Fe OPERATION 
8 LISTING 


1. ABSTRACT 


THIS PROGRAM IS IN TWO PARTS, AND IS INTENDED TO PROVIDE THE a WITH 


A TOOL FOR TROUBLE-SHOOTING THE yp MAGTAPE SUBSYSTEM ON A PDP-11 
COMPUTER SYSTEM. THE FIRST " oten HE PROGRAM ALLOWS THE 


GIVE THE MAGTAPE, Ss. | MULATE U 

THESE C S IN THE CORE LOCATIONS PROVIDED. THE USER MAY EXECUT 
ONE OR SEVERAL INSTRUCTIONS IN ANY LEGAL SEQUENCE. WHIL 

DRIVER IS SIMPLE AND USES NO INTERRUPTS, DUE TO THE DESIGN OF T 
HARDWARE CERTAIN ERROR CONDITIONS MUST BE IDENTIFIED IN ORDER TO 
PREVENT MISINTERPRITATION OF THE DESIRED RESULTS. 


















PART TWO OF THE PROGRAM CONSIST OF SELF CONTAINED ROUTINES TO PERMIT 


THE USER TO SET UP AND CHECK THE DELAYS CONTAINED WITHIN THE TR79 
rm. BY USING THE SWITCH REGISTER TO SELECT THE APPROPRIATE 
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SEQ 3 


REM 


. REQUIREMENTS 





| 
HARDWARE 
A. PDP-11 PROCESSOR 
B. TR79 MAGTAPE TRANSPORT (HP-7970E DRIVE) 
C. TR79F MAGTAPE CONTROLLER 





2.2 STORAGE 
THIS PROGRAM REQUIRES A MINIMUM OF 4K OF CORE 


3. LOADING “ 
USE STANDARD BINARY LOADING PROCEDURE we 


4.0 STARTING PROCEDURE 
THERE ARE TWO STARTING ADRESSES THAT MAY BE USED 


4.1 200 (8): LA 200 SR=0 A START AT THIS ADRESS WILL RESULT IN A Ag ryt: DEFAULT 
OPERATION OF A WRITE y Feee” WITH A WORD COUNT OF -20 AND A oo oe castle 
OF ALL 1°S. TO MODIFY THESE PARAMETERS SEE SECTION 7.1 PROGRAM 
NOTE: ALSO SEE SECTION is 0 PR « «ad RESTRICTIONS, THE DEFAULT OF OURITE 
WILL NOT WORK IF TAPE IS AT B.0.T 

4.2 204 (8) LA 204 SR=0 A START AT THIS ADRESS WILL EXECUTE THE SPECIALLY DESIGNED 
a. tatheiee THE USER TO SETUP OR VERIFY THE DELAYS WITHIN 
NOTE: ALLWAYS USE SCRATCH TAPES WHEN TAPE MOTION IS INDICATED. 
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144 ~REM 
145 

49 

rth 5.0 RESTRICTIONS 

49 5.1 A. A PSEUDO-OP OF A 20(8) HAS BEEN PROVIDED TO ALLOW Uy. USER TO 

50 POWER CLEAR Ay OPERATIONS IF DESIRED,HOWEVER THE PROGRAM 

2] CAN RECOVER FROM ERRORS. THIS IS A POWER CLEAR AND TAKES 900 

¢ MILI-SECONDS TO COMPLE 

5 ANY ATTEMPTS TO ISSUE INSTRUCTIONS TO THE CONTROLLER WHILE A 

54 POWER CLEAR IS IN PROGRESS WILL RESULT IN ILLEGAL COMMAND BIT 

55 SETTING WHICH WILL INHIBIT ANY FURTHER INSTRUCTIONS FROM BEING 
8 EXECUTED. A POWER CLEAR IS ALSO GENERATED FROM A BUS INIT WHICH 

5 OCCURS FROM A RESET INSTRUCTION. THE DRIV % t USES NO RESETS. (USE 
35 CAUTION IF YOU MODIFY THE DRIVER PACKAGE.) 

60 B. THE TR79 CONTROLLER CHECKS FOR CERTAIN ILLEGAL FUNCTIONS DUE 

61 TO TAPE POSITION OR STATUS, THE DRIVER PACKAGE WILL CHECK THESE 
re CONDITIONS AND HALT AT APPROPRIATE LOCATIONS WITH MEANINGFULL 

6 DATA DISPLAYED ( SEE SECTION 7.2 ERROR CHECKS). 

64 - THE LISTED CONDITIONS WILL OP OBUCE ILLEGAL COMMAND ERRORS: 


Oo 
w 


US 


ATTEMPT TO WRITE DATA FROM LOAD POINT WITHOUT AN I[.D.B. 
WRITE A TAPE MARK FROM LOAD POINT 


POINT 
O WRITE AN I.D.B. AT OTHERTHAN POINT 
ATTEMPT TO WRITE DATA WITH THE WRITE RING REMOVED 
ISSUE A COMMAND WHILE THE MAGTAPE IS NOT READY 
ISSUE A COMMAND WHILE THE a a IS NOT READY 
ISSUE A COMMAND WITH INHIBIT BIT SET 
ILLEGAL FUNCTION CODES 00,03, 05. "08. 11,12,14 











C. THE PROGRAM DOES NO DATA CHECKS ON READ OR WRITE DATA TRANSFERRED. 
IT IS THE RESPONSIBILITY OF THE OPERATOR TO MANUALLY EXAMINE THE BUFFER 
ete acti IF THERE HAVE BEEN ANY PICKED OR DROPPED 


ood Oo SW NN NNN NOOD 


LOS SS BOR SES SaNouSun ope 


D. NOTE: HARDWARE OPERATION OF THE TR-79 SPECIFIES jing EACH CORE 
WORD LOCATION CONTAIN ONE BYTE (BITS one’ i F DATA_AND PARITY 
(BIT 8). Lay WHEN CALCULATING THE WORD COUN A 
TRANSFER THE ACTUAL NUMBER OF CORE BYTE LOCATIONS ACCESSED IS 
EQUAL TO 2X THE NUMBER LOADED IN THE WORD COUNT REGISTER. 
ALSO NOTE THAT THE CONTROLLER DOES NOT APPEND PARITY TO THE 
BYTE BEFORE DOING A WRITE OPERATION. PARITY MUST BE CORRECT 

IN CORE OTHERWISE ERRORS WILL OCCUR ON 

THE TRANSFER (ODD PARITY) IS ALWAYS USED. 
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SEQ 5 
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3s .REM | 
197 | 
198 | 
199 6.0 CONSOLE SWITCH SETTINGS 
SW 15 = 1 STOP AFTER EACH OPERATION (ONLY WITH START 200) 
0 PROCEED 
SW 14 = 1 STOP _AT THE END OF EACH PROGRAM PASS (ONLY WITH START 200) 
0 PROCEED 
Sw 7 = 1 ENABLE FOR DELAY ROUTINES (EXECUTE ROUTINE ONLY WITH START 204) 3 
0 ALLOW SELECTION OF DELAY ROUTINES WITH SW 0-3 
210 Sw 0 THU 3 = DELAY ROUTINE TO BE EXECUTED (ONLY WITH START 204) 
212 6.1 DELAY SETUP TABLE : 
ié “SQITCA Y-~ "DELAY ~~~ I -MODOLE I COCATION I PRINT I INPUT TI OOTPOT T TIRE 7: 
15 SETING I NAME I TYPE I 1 PAGE I PIN I PIN I 
216 een eae |-------------]-----=--]---------- [-------]-------]--=-----]---------------- 
217 
18 00 1 NO-OP I 
19 
fi ov TP CLR [M302 1 C-06 1 T0221 H2 1 F2 1 20MILI SEC. 1 
$56 02 P CLR OFF M-306 D-09 T04-1 H2 T2 900 MILI SEC. 
555 03 TERROR CLK «1 M302 1 C-10 1104-21 W2 1 F2 | 200 NANO SEC. I 
226 04 I WRITE ENAB I M~302 I C~10 1 TOS] M2 1 T2 1 40 MICRO SEC. I 
28 05 L BUFF CONT «=1M-306 J B-18 I TN-11 €1 J JT 11 MICRO SEC. 1 
$0 06 TEND WRDAT IM-302 1 A-16 J T11-1 1 m2 1 T2 1 18 MICRO SEC. I 
5 07 «1 1ST WO REO TM-302 1 A-22 [11-21 H2 1 FZ | 100 MICRO SEC. I 
: 10 I ERASE 1 mM-30¢ J 8-18 110-31 si J mM 11 MICRO SEC. 1 
11 T WRITE 1B M302 1 A161 TOT Y H2 1 F2 17 MILI SEC. 1 
8 12 1 IDB TIMING 1 M-302 1 D-13 [T0911 W2 | F2 1 75 MILI SEC. I 
40 131 ABORT [M306 1 A-25 J 109-31 H2 1 12 11.5 SEC. 
42 14 L BUSY DELAY I'M+304 1 B-18 1 TOS-1 1] RI 1 PI J 100 NANO SEC. 1 
4 15 1GOBIT DEL I M-306 J 8-18 | 106-11 D1 J HT fT MICRO SEC. | 
46 16 1 M.S.D. [m-302 I A-22 1 70%21 M2 1 12 I 900 MILI SEC. i 
247 I 
48 17-1 -NO-OP I I 
249 “ 
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REM 
$2 AERA ERARARERKEEREREKKERES 


* DELAY CONDITION NOTES * 


KEAAEAAAEEAARAARAEAAKAEKAKAEAKKE 


6.2 DELAY $$=FIXED DELAYS 


00 NO OPERATION PERFORMED WAITING SWITCH SELECTION AND ENABLE 
01 POWER CLEAR PERFORMED NO TAPE MOTION DELAY PULSE IS POSITIVE GOING 
02 POWER CLEAR PERFORMED NO TAPE MOTION DELAY PULSE IS POSITIVE GOING 


03 NO TAPE MOTION, PROGRAM FORCES AN ERROR WITH THE BGL BIT 
IN THE TR STATUS REGISTER (BIT 11) DELAY PULSE IS POSITIVE GOING 


04 TAPE MOTION, yop. DOES A SHORT ERASE WHILE MOVING TAPE 
TAPE MOTION IS NOT READILY NOTICIBLE WHILE EXECUTING THIS ROUTINE 
DELAY PULSE IS POSITIVE GOING 


$$ 05 TAPE MOTION, PROGRAM DOES A_10 Pky WRITE, PROGRAM CHECKS 
FOR LOAD POINT AND WILL WRITE AN I.D.8. BEFORE ENTERING THE 
DELAY LOOP. DELAY PULSE IS POSITIVE GOING 


06 SAME CONDITIONS AS 05 DELAY PULSE IS POSITIVE GOING 
07 SAME CONDITIONS AS 05 DELAY PULSE IS POSITIVE GOING 
$$ 10 TAPE MOTION, PROGRAM he CHECK FOR LOAD POINT THEN DO A 
MAXIMUM ER ASE TO MAKE THE OPERATION CONTINIOUS THE PROGRAM 
WILL CLEAR THE ERASE COUNT BEFORE THE OPERATION IS DONE. 
DELAY PULSE IS NEGATIVE GOING 


11 APE MOTION, PROGRAM WILL CONTINIOUSLY WRITE THE I.D.8. 
DELAY PULSE IS POSITIVE GOING 


SAME CONDITIONS AS DELAY 11. DELAY PULSE IS POSITIVE GOING 


13 PROGRAM WILL REWIND TAPE TO L.P. AND FORCE AN ERROR BY DOING 
A WRITE DATA. DELAY PULSE IS POSITIVE GOING. 


$$ 14 TAPE WILL MOVE TO L.P. , AND DO A MAXIMUM ERASE. 
WHILE THIS IS HAPPENING PROGRAM WILL LOAD THE COMMAND 
REGISTER TO PRODUCE A LD CTRL PULSE. DELAY PULSE IS POSITIVE GOING 


$$ 15 SAME CONDITIONS AS DELAY 04. DELAY PULSE IS NEGATIVE GOING 
16 PROGRAM WILL MOVE TAPE TO E.0.T. AND ATTEMPT TO DO A FAST 
FORWARD TO PRODUCE THE MOTION STOP DELAY. DELAY IS POSITIVE. 
NOTE: AFTER COMPLETION OF THIS ROUTINE A MANUAL REWIND 
SHOULD BE PERFORMED. 


17 THIS IS A NO OPERATION SAME AS 00 
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7.0 


OPERATION 


THE PROGRAM IS QUITE SIMPLE HOWEVER IT DOES REQUIRE KNOWLEGE OF THE 
OF THE TR-79 MAGTAPE SYSTEM AND AN UNDERSTANDING OF T 

FUNCTIONS AND RESTRICTIONS. THE CODE HAS BEEN ASSEMBLED IN IMMEDIATE 
AND ABSOLUTE MODES USING PC ADRESSING. IT IS RECOMMENDED THAT THE 
USER READ AND UNDERSTAND THE RESTRICTIONS AND OPERATIONS SECTIONS. 


THE DRIVER PROGRAM (LOAD ADRESS 200,START SWITCHES =0) CAN 3 MADEB 
OPERATIONS . tate io 7. Y 













THE PROGRAM PARAMETERS MAY BE ALTERED BY or’, 
THE ATE CORE LOCATIONS (SEE SECTICN 7.1). PROGRAM DEFA 
IS A SINGLE WRITE COMMAND OF 20 WORDS OF ALL 1'S FROM LOCATION 3700 
WITH MINIMUM DELAY BETWEEN OPERATIONS. THIS DEFAULT WILL NOT WORK 
IF THE TAPE IS POSITIONED AT LOAD POINT. 


THE DELAY PROGRAM (LOAD 204,START SWITCHES=0) WILL EXECUTE THE DELAY 
SET-UP ROUTINES TO ALLOW SET-UP OF ALL THE DELAYS IN THE TR-79 CONTROLLER 
THE PROGRAM HAS AN ACTIVE SWITCH REGISTER AFTER STARTING. BY SELECTING 
THE DESIRED DELAY ROUTINE IN SWITCH REGISTER 0 THRU 3, AND THEN SETTING 
BIT 7 =1 THE ROUTINE W UTION HANGE THE DE INE 
SET BIT 7=0 WAIT rye FEW SECONDS FOR COMPLETION OF THE ROUTINE, THEN 
ENTER THE NEW NE NUMBER IN BITS AND SET BI P 
PROGRAM C wD ERROR HALTS, HOWEVER IF ERRORS ARE DETECTED THE 
PROGRAM ort INFORM THE USER BY OUTPUTTING A BELL CODE TO THE CONSOLE 
TERMINAL. THE PROGRAM WILL THEN DO A CONTROL RESET AND CONTINUE. 


NOTE: THE PROGRAM BUILDS THE — DATA BUFFERS EACH TIME THE PROGRAM 
I OGRAM DEFAULT ‘? ores 2700 HOWEVER 
























THIS PROGRAM DOES 
ABOVE THE LOWER Sak OF MEMORY. 
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PROGRAM PARAMETER LIST AND CORE ADRESSES 


PARAMETER 


LOCATION 


DESCRIPTION 


EXTENDED 
CORE ADDRESS 


UNIT SELECT 


WORD COUNT 


READ ADRESS 


WRITE ADRESS 


ERASE COUNT 


OPERATION 
DELAY 


OPERATION 
DELAY MULT. 


OPERATIONS 
NUMBER 


OPERATIONS 
TABLE 


704 


706 


710 


712 


714 


716 


BITS 12 AND 13 OF THIS LOCATION REPRESENT 
XBA 16 THE TR CONTROL REGISTER 
THESE BITS ALLOW RELOCATION OF THE DATA BUFFER. 


BITS 8+9 IN THIS LOCATION REPRESENT THE 
UNIT NUMBERS OF THE TAPE DRIVES. A 
OF 4 DRIVES PER CONTROLLER DEFAULT IS UNIT 0. 





THIS IS THE 2°S COMPLIMENT OF THE NUMBER 

OF WORDS TRANSFERRED. SINCE EACH BYTE OCCUPIES 
A WORD LOCATION THE NUMBER OF CORE LOCATIONS 
USED IS 2X THE WORD COUNT. PROGRAM DCFAULT 

IS -20 WORDS. 








CONTAINS ADRESS OF THE READ BUFFER. PROGRAM 
DEFAULT IS LOCATION 6700. 


CONTAINS ADRESS OF THE WRITE BUFFER. 
PROGRAM CONTA 


THE 
INS 4 WRITE PATTERNS CONTIGIOUS IN CORE. 
LOCATION 2700 = ALL 1°S PATTERN 
LOCATION 3700 = ALTERNATE 1 AND O BYTES 
LOCATION 4700 = ALTERNATE 1 AND 0 BITS 
LOCATION 5700 = SLIDING 1 BIT PATTERN 


0 = SLID 
PROGRAM DEFAULT IS LOCATION 2700 
CONTAINS A 2°S COMPLIMENT NUMBER 
PROPORTIONAL TO 


OF TAPE TO BE ERASED. THIS NUMBER IS LOADED 
the THE WORD Feo Bye ol pent inde PRIOR TO AN 


5 See B ORMED. PROGRAM DEF 
Ts € 997 7 . EACH INCREMENT CAUSES .02 INCHES 
OF TAPE TO BE ERASED. 


CONTAINS A NUMBER USED IN A TIMER BETWEEN 
OPERATIONS DEFAULT =000001 MINIMUM DELAY 


THIS IS USED IN CONJUNCTION WITH LOC. 714 

AS A MULTIPLIER IN THE DELAY TIMER. DEFAULT 

IS 000004 MINIMUM DELAY. INCREASING THIS 
NUMBER WILL ALLOW MORE TIME BETWEEN OPERATIONS. 


THIS LOCATION CONTAINS THE NUMBER OF OPERATIONS 
TO BE PERFORMED IN THE OP TABLE. DEFAULT = 1. 


THIS IS THE BEGINNING OF THE OPERATIONS TABLE. 
ALL OPERATIONS TO BE PERFORMED SHOUL 

ENTERED IN THE DESIRED SEQUENCE IN THIS TABLE. 
DEFAULT IS A WRITE OPERATION. 





AULT 
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SEQ 9 


ERROR CHECKS AND HALTS 


LOCATION 


1320 


1332 


1350 


1406 


1432 


DESCRIPTION 


HALT HERE IF THERE WAS AN ATTEMPT TO EXECUTE AN ILLEGAL 
FUNCTION, DUE TO TAPE POSITION OR SEQUENCE OF INSTRUCTIONS. 
THE iLLEGAL COMMAND IS DISPLAYED IN RO WHEN THE 

PROGRAM HALTS. SEE SECTION 5.1B FOR ILLEGAL FUNCTIONS 


HALT WERE IF THERE WAS A HARDWARE ERROR ON THE PREVIOUS OPERATION 

IF IT IS DESIRED TC BYPASS THE ERROR FLAG NOP THIS LOCATION. 

Ha COMMAND AND S TAiuS ve gp BL SHOULD BE EXAMINED AT 
THIS TIME iC DETERMINE THE PROBABLE CAUSE OF THE ERROR. 

PRESSING CONTINUE WILL CLEAR THE ERROR BY EXECUTING A 


CONTROL RESET. 


HALT HERE IF YOUR OPERATION TABLE LOC.722-766 HAS AN 
OPERATION THAT rie NOT DEFINED IN THE LEGAL FUNCTION 
CODES. RO HAS THE BAD CODE IN IT,CHECK YOUR TABLE 

IN LOCATIONS 723 THRU 766. 


HALT HERE IF BIT 15 OF THE SWR IS SET. THIS IS THE HALT 
BETWEEN INSTRUCTIONS. 


HALT HERE IF BIT 14 OF THE SWR IS SET. THIS IS THE HALT 
BETWEEN PASSES OF INSTRUCTIONS IN THE OP TABLE. 








SEQ 10 
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CZTRBD.P11 18-NO ac 
Hs TIONS AND CODES FOR USE IN OPERATIONS TABLE (LOC 
Fos TABLE OF LEGAL FUNC 
a Sa 
00 "eee TLLE 

T) 
3 “ TA (CILLEGAL IF EXECUTED FROM LOAD POIN 
a BY WRITE DA Lope 

. TAPE MAR 0.8. 
oe 02 READ ( DATA ne 
IL 
: 4 ane LOAD POINT) 
i L IF ISSUED FROM 
cus 04 SPACE REVERSE (ILLEGA 
i 05 weet ILLEGAL **% 
its 06 xexexe JTL LEGAL **** 
449 
; LOAD POINT. 
: : as (TAPE MOVES AT 160 I.P.S.) ILLEGAL IF ISsJED FROM 
i 10 REW 
: 11 eeee ILLEGAL *#ee 
rH, itLEGAL **** 
week gil ) P 
: FAST FORWARD (TAPE MOVES FORWARD AT 160 I.P.S 
13 
ss kk kK 
wate [TLLEGAL — 
ITE I1.D.B. CILLEGAL IF ISSUED AT OTHER THAN LOAD POI 
WR oe o es 
: WRITE TAPE MARK (ILLEGAL IF ISSUED FROM LOAD POINT 
6 

i OFFLINE (REQUIRES MANUAL INTERVENTION) 
: PSEUDO OP ) 
‘89 20 CONTROL RESET ( PROGRAM 
470 
471 


SEQ 17 
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473 ; 
474 ; 8. PROGRAM LISTING 
475 ; 
47 : 
47 ; 
478 ; 
479 ~ENABLE ABS ,AMA 
135 ~TITLE TR79 UTILITY DRIVER 
481 000000 .ASECT 
: 
484 F KEEREEREEEREERERRREERREERERKEEE KKK 
485 : * GENERAL REGISTER DEFINITIONS * 
139 : eeEEEEEEEREREREREREE RARER EERE KER 
4 ; 
488 000000 RO=20 
489 00001 R1=21 
00000 R2=%2 

491 00000 R3=%5 
49 0004 R4=24 
49 000005 R5=25 
494 000006 SP=%6 
495 000007 PC=%7 
496 ; 
497 ; 
498 : AEEREEARARRRREKRERRERRERKEKKEKKKK 
499 * TR79 REGISTER DEFINITIONS * 

0 : AERA RAARRAEREERERERRERERREREEKE 

1 ; 

5 4000 TRCOM=164000 


6 

64002 TRSTAT=164002 
64004 TRWC=164004 
64006 TRBA=164006 


CoOooooooooo 


RAAEKEAAAEEAAKREAEEEEEKKKEKEKKAKEEEKEEKK 


* PROCESSOR REGISTER DEFINITIONS * 


REAEEEEARAERAAEKEKEARAEKREKEKKREKEKKKERE 


7776 PSW=177776 
7570 SWR=177570 


RHEEAAEAKAAAAAAKEKKKKKK 


* TTY REGISTERS * 


REREKEKEAKKAEEEKEKEEKK 


7564 TTSTAT=177564 
7566 TTBUF=177566 


wel el eel cee ceed ee ee eed el ee 
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SEQ 12 
CZTRBD.P11 18=-NOV-81 09:16 
528 ; 
26° ; 
8 : 
' Ps 
33 E KKKEAEREEREKAEKEKE 
5 : ; * TRAP CATCHERS * 
5 ° KEKKAERERAEEEKEKKEE 
5 000000 .=0 
537 000200 -REPT 200 
238 +2 
539 HALT 
540 -ENDR 
rf ; 
276 : KEKE KCKEKEEEKEEEKEKKKKKKE 
544 : * STARTS AND CORE BUFFER BUILD * 
545 : CREAR AEREREKEEREKEEEREEKEKEKKEEK 
546 : 
547 ; 
548 00200 -=200 
549 00 000137 000230 JMP a#CORBIL sNORMAL START 
550 04 005237 000356 INC @#NORST :SETS FLAG TO DETERMINE WHO STARTED 
551 10 000137 000250 JMP @4CORBIL :START HERE FOR DELAY ROUTINES 
226 14 000777 000777 
55 58 000777 
554 20 000400 
555 2 000777 
228 4 243 
55 6 0652 
538 0 012701 000214 CORBIL: :SET UP PATTERN GENERATOR 
> 3 012703 000216 :SET UP PATTERN GENERATOR 
60 40 01 708 002700 X1: #2700 ,R2 :SET UP ADRESS POINTER 
61 44 012700 177400 X2: #177400,RO :SET UP COUNTER 
362 50 11128 X3: (R1), (Re)+ :D0 IT 
56 ¢4 520 RO sKEEP TRACK OF HOW MANY 
64 5 1403 X4 sCHECK FOR DONE 
65 56 011322 (R3) ,(R2)+ ; 
$8 4 05 9 RO sKEEP COUNTING 
6 6 01372 x3 ;LOOP HERE 
rt S 01 000004 x4: #4,R1 :NEXT PATTERN 
§ Ons 0 062703 000004 #4 R53 :GO TO NEXT PATTERN 
0 74 022701 000230 #230,R1 :DONE YET 








SEQ 13 
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i : 
57 361 ; BNE X2 :NOT D 


ONE YET 
000 SLB: CLR RO ;CLEAR THE PATTERN GENERATOR 
;CLEAR THE PATTERN COUNTER 
:SET BIT IN PATTERN 
COUNT 


Sooo 
2 





o9030¢ 
575 
$7 soo INC RO 
5 1 01 SLB1 INC Ri :K 
A. 1 Ae MOV RO,(R2)+ sPUT IT IN CORE 
79 14 0 02 006700 CMP #6700,R2 “SEE IF WERE FINISHED 
529 S 140 BEQ SLBDON :YES JUMP OUT 
a8 2701 000011 CMP #11,R1 :CHECK ON THE BIT POSITION 
5 ¢ 6 1765 SL sRESET THE SLIDING BIT 
5 300 SHIFT THE BIT 
5 2 p07 ee :LOOP AGAIN 
; 5 0057 000356 SLBDON: :SEE WHERE THE START CAME FROM 
ry 0 OO LOS :IF = 0 MUST HAVE BEEN START 200 
58 2 005037 000356 *CLEAR IT OUTFOR NEXT TIME 
es 0 § 000137 001462 :NOT = GO T 
+ eee 000137 001000 ALD: :GO TO A 20 
44° 000356 000000 NORST: *» TEMPORARY LOCATION 
236 ° KEKE ERRKEKKKEK 
59 : * STACKS * 
£94 . fe te ee eee hee ek 
595 ; 
3 0007 00 .=500 
256 000500 000000 SUBSTK: 000000 : SUBROUTINE STACK 
599 ; 
600 | : 
601 000600 .=600 
On6 : STACK: 000000 SET STACK HERE 
604 : 
605 : 
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607 


KEATATAATAAKAAK. CAEREKAAAEAEEAEAEAAAAEARE 


* PROGRAM CONSTANTS AND VARIABLES * 


Ste 


















610 EEETATEEAAAKCAEARAARAKARAAAAKEAARAARAAARAAAE 
611 
61 000664 
18 000664 000000 : TEMP STORAGE FOR SWITCH REGISTER 
614 aia 000000 sCONTAINS DELAY MULTIPLIERS 
615 0006 000000 s TEMP STORAGE FOR COMMAND REGISTER 
o18 000672 000000 : TEMP STORAGE FOR STATUS REGISTER 
61 74 000000 > TEMP STORAGE FOR THE NUMBER OF OPERATIONS TO BE PERFORMED 
618 76 000000 : TEMP STORAGE FOR THE OPERATION BIENG PERFORMED 
619 000700 000000 :BITS 12 AND 13 ARE XBA 16AND XBA 17 

¢ 000706 700 ART OF READ BUFFER 

000710 700 :START GC” WRITE BUFFER 

624 000712 177777 :CONTAINS LENGTH OF ERASURE WHEN DOING AN ERASE 

§ 000714 000001 sOPERATION DELAY 
626 000716 000001 :OPERATION DELAY MULTIPLIER 

7 000720 000001 :NUMBER OF OPERATIONS TO BE PERFORMED 
6 S : REKAEAEAAKETAEAERAAEREREAARAKREKRAARARARAEKEKAKRARKEKRAKRE 
6 ; * TABLE OF OPERATIONS TO BE PERFORMED MAX =23 * 
6 1 ; RAEEKKAAAEAEEAAEAEAAKAAARAEREAARAARERAREARAERAREAREEREE 
6 : 
6 ¢ OPTBL 1 :1ST OPERATION 
° : ° 5 oe OPERATION 
6 0 : 
y Pay 
6 0 : 
640 0 . 
641 0 :11TH 
ong 0 ite OPERATI 
64 0 :135TH OPERATION 
644 0 :14TH OPERATION 
645 0 :15TH OPERATION 
ons 0 :16TH OPERATION 
64 0 :17TH OPERATION 
64 0 s20TH OPERATI 
64 0 :21ST OPERATION 

5 0 oe RATI 

& 0 :25RD OPERATION 
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$2? : REAEREEEEAAEEEAERAEEEAAEAEREAE AERA AAAERARAARRAREREEE 

657 $ * HOUSE KEEPING AND INITIAL PROGRAM PARAMETERS * 

658 : KAAS EAAKARERARAEAAERAEAAAEKEREAARAEERE 

659 ; 

660 001000 -=1000 

661 001000 012706 000600 START: MOV :SET UP STACK AT LOC. 600 

662 001004 O15 35 000340 177776 MOV 3SET PRIORITY bevel 7 NO INTERRUPTS ALLOWED 

663 001012 032737 004000 164000 158: BIT WAIT FOR THE INITIAL 900 MS.POWER CLEAR TO SUBSIDE 
664 001020 001374 BNE LOOP UNTILL CONTROL IS READY 

665 001022 013701 000720 MOV @f0PNUM,R1 =R1 CONTAINS HOW MANY OPERATIONS WILL BE DONE 

068 001026 042737 176377 000702 UNUM: BIC #176377,a4UNIT = STRIP OFF EVERYTHING EXCEPT BITS 8 AND 9 TO SET UP UNI 
O08 : RREREEEAAAKAKREARERRAEKEEREREEKREREREE 

670 ; * SET UP OPERATIONS, COMPARITOR * 

671 E RAEAAEKERAEAEKEAREKEKEREREAERERREREKERE 

67 

673 001034 01 Oe 000722 #OPTBL,R2 sRe CONTAINS THE POINTER TO THE START OF THE OPERATINS 
674 001040 012737 000011 000674 LOOP: #9. ,aATEMP1 NUMBER OF LEAGAL OPERATIONS 

675 Oot beS 012703 001440 #LEGOPS ,R3 “POINTER TO THE BEGINNING OF THE LEGAL OPERATIONS COMPA 
O76 Ooi oe Oie63¢ 000676 (Ra), aaTEMP2 :GET THE OPERATION AND PUT IT IN TEMP 2 

67 1056 0235723 000676 2$: MP2, ( (R3)+ sCHECK IT AGAINST THE LEGAL FUNCTIONS 

678 001062 OL a8s CL INA <IF ITS LEGAL CONTINUE TO EXECUTE IT 

679 001 Oa 000674 TEMP1 : WASN'T a OPERATION SUBTRACT 1 

680 001070 0013572 2$ sTRY NEXT ONE 
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000422 


000020 000676 


001344 
004000 
004000 
001264 


164002 
001442 


164000 
164000 


CRES: 
3$: 


CPt e Ge Be Se Se Be Be 


: 


TTI HE Ete Fe Be Be Be Be He 


REWD: 


SSSSS2E5 





ee ie EE 


SEQ 16 


RETATEAAAAAAAAAAARARAEAAAREEAEAAAAER 


* CHECK FOR A CONTROL REScT * 


TAECAAAAAAAAAAEAAAAAEKAAARARAARKAERE 


A A TT -- _ 








#20 ,.a#TEMP2 +SEE IF as A CONTROL RESET (PSEUDO OP) 
S ES TBE AC OL RESET JUMP TO CRES 
TION STOP THE PROGR 
74000. TRCOM sMUST BE A POWER CLEAR SO DO i yes 900 MILI SECONDS 
#4000, TRCOM ;SEE_IF DONE WITH POWER CLEAR 
:WAIT UNTILL DONE 
FUDONE :GET BACK INTO PROGRAM 


REECE AAAEKKEAAKRAAAAAAKEKARAEKEAEARAEEEEAEARAAAKEKE 


* (CLEAR INKIBIT BIT AND SET UP GPERATION * 


REET ACAAAAEAAKAKKAEKRAAEAERAAAEEAEEAEAREARARAEEREREE 


@ATRSTAT ;CLEAR OUT THE INHIBIT BIT 
#LEGOPS+2,R3 :GET AN OFFSET VALUE 
R3,PC :ADD IT TO THE PC AND GO THERE 


* OPERATIONS DIRECTORY TABLE * 


RECTAAEAAKKEAAEAKEAEKAEKEREKEAEKKEEREKEAEK 


WRITE sWRITE INSTRUCTION 

READ :READ INSTRUCTION 

+4 ; SPACE REVERSE INSTRUCTION 
ERSE E COMMAND 





:WRITE TAPE MARK 


REAEAEAAAKAARERAEEKAAEAEKEEAEEKEEKKEEKKEKE 


SEQ 17 
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720 : 
g ; : SEEETAAEAAAAAAATAAAAARCAAAEEAAEAAARERAAAEE 
7 ; * SET UP UNIT NUMBER AND GO BIT * 
726 : RESTS AAAAAAAARAAAAERAAERARREEREREERE 
725 3 
7 : 
7 § 001162 O0g3s 000676 SGOB: ASL @A#TEMP2 :SHIFT THE FUNCTION INTO THE PROPER BIT POSITIONS 
728 a 053737 000702 000676 BIS @#UNIT,a#TEMP2 :SET THE UNIT # 
729 1174 053737 000700 000676 BIS avEXTCOR, @#TEMP2 ;SET THE MEMORY EXTENSION BITS 
7 oid 005237 000676 INC @A4TEMP2 SET THE GO BIT 
f 001 BR EXECUT = JUMP TO THE EXECUTION ROUTINE 
REEEEEEEAEAAKAAKRERAARAEKARARERKREKREKEE 
; *  QOPERATIONS SETUP ROUTINES * 
2 RAAAETEARAAARAAARAAEAARKEKKAKEEKAARREEKEEE 
013737 000710 164006 WRITE: @AWADDR , a@#TRBA :SET UP WRITE BUFFER AREA 
Hf : 3 WRIWC = CONTINUE ON TO SET UP W.C. 
13737 000706 164006 READ: @ARADDR , AF TRBA -SET UP READ BUFFER ADRESS 
013737 000704 164004 WRIWC: @AWCNT ,a#TRWC =SET UP WORD _— 
LAT $608 4-1 UP GO BIT 
013737 000712 164004 ERSE: @FVERSCNT ,a#TRWC T NUMBER TO INDICATE AMOUNT OF TAPE TO BE ERASED 
000746 SGOB SET UP GO BIT 


REKERECAEEEEAKKEAKEREKKEAEAKEKEKEEEAEEKKKEEKKKEKEKEEREEEKEREE 


* ROUTINE TO EXECUTE THE FUNCTION AND CHECK FOR DONE * 


RREAEEEEREEAKEKERAAKEEAEKEAAAEEEEKKKEKREKEKEEKREERKEEAEEKEEREE 


p00e39 XECUT: NOP 

013737 000676 164000 MOV @ATEMP2,a#TRCOM ;DO THE FUNCTION 
5 A SA 164000 7$: TSTB a TRCO% :SEE_IF a YET 
100375 BPL 7$ sWAIT FOR IT 
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fs : 
76 : EEEAEAEAAAAAAAEARAARECARARARAERAAAAAAAAARAAREEE 
76 * ROUTINE TO CHECK FUNCTION WHEN DONE * 
764 : KEEATATCAAEAKAAAAAAAAAAARAKAAAARAARAAARAAKEREAAEE 
765 
7 : 
re? 001 $4 013737 164002 000672 FUDONE: QFTRSTAT.@#STTEM 3SAVE STATUS 
768 001272 013737 164000 000670 a4TRCOM, a#COMTEM COMMAND REGISTER 
769 001 032737 040000 000670 BIT #60000-SACOMTEM WAS IT AN ILLEGAL COMMAND DUE TO SEQUENCE OR TAPE POS! 
0 001 001403 ERDONE "NO ERROR HERE 
771 001310 006257 0 ILLCOM aATEMP2 “STRIP OFF THE GO BIT 
772 001314 015700 000676 QA TEMP2 , RO ;PUT BAD COMMAND IN RO 
273 001320 ERR14: T STOP WITH BAD COMMAND DISPLAYED 
27% 0015 2737 100000 000670 ERDONE: #100000, a#COMTEM SEE IF ERROR BIT IS SET 
775 001330 001410 OPDEL “NO ERRORS CONTINUE 
776 001332 ERR15 :GOT AN ARROR NOP THIS HALT TO CONTINUE 
277 01354 000137 001106 @ACRES {IF YOU GOT AN ERROR ONLY RECOVERY IS WITH A CONTROL RE 
278 001340 006257 000676 ILLFUN aATEMP2 :STRIP OFF GO BIT 
779 001344 013700 000676 ILFUT @ATEMP2 , RO “PUT THE BAD CODE IN RO TO DISPLAY WHEN HALTED 
001350 000 ERRIF “GOT AN ILLEGAL FUNCTION CHECK YOUR PROGRAM LOCATION 72 





——— 
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000716 000666 
000714 


000666 
100000 


001040 
040000 


001000 


177570 


177570 








ee ae —- 












SEQ 19 
SETEETAEAEAAAAAAAERAEAAAAAAERAARAEEREEREAEREEEEE 
* OPERATION DELAY BETWEEN INSTRUCTIONS * | 
KEAEEEEATAAEAAEAAKREAARAAAAAREAAARERAEREARAAAAKRARAREEE 
MOV a@#OPDLX,a#TIMMUL ;SET OP OPERATIONS DELAY MULTIPLIER | 
MOV a#OPDLY.RO “SET UP OPERATIONS DELAY TIMER 
DEC “TIMER IS TICKING 
BNE 8$ “GET MORE TIME 
DEC af#TIMMUL “COUNT DOWN THE MULTIPLIER 
BNE “GET MORE T | 
BIT #100000, a#SWR “TIMES UP CHECK SWITCHES TO SEE IF WE HALT OR CONTINUF 
BEQ .+4 “DONT STOP NOW SKIP THE HALT 
HALT ;STOP BETWEEN INSTRUCTIONS 
DEC RI -=1 FROM THE NUMBER OF OPERATIONS IN R1 
BNE =GO AND DO THE NEXT INSTRUCTION 
;SKIP THE JUMP 
JMP af#LOOP THE LOOP AGAIN 
BIT #40000. a#SwR * CHECK SWITCHES TO SEE IF WE WANT TO STOP AT END OF PAS 
BEQ REST :D0 THE NEXT PASS SKIP THE HALT 
HALT TOP BETWEEN PA 
JMP @A#START “GO DO IT AGAIN (NEXT PASS) 
EEKEEEEERAARARAAEAAAAKAEKAREAEREAKEAEREAERE 
* LEGAL OPERATIONS COMPARITOR TABLE * 
KEEACTEAAACAAAARAAARERAAEEARAEARARAKKKEAREAEEAEK 
00001 WRITE 7 
00002 : 
00004 “SPACE REVERSE 
00007 : ERASE 
00010 “REWIND 
00013 “FAST FORWARD 
0001 “WRITE IDB 
00016 “WRITE TAPE MARK 
00017 > OFFLINE 
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REECE ACAAKARAAAEAAKERARAEARARAEAEEAAAEAEE 


DELAY SET-UP PROGRAM ROUTINES 


REECE AAAAARAEAAAKERAAKKERAEARHAEE 


T oP SUBR TINE STACK 
T PRIORITY 7 NO INTERRUPTS ALLOWED 
NITIAL POWER CLEAR TO SUBSIDE 


WA ILL DONE 
:GET SWITCHES AND PUT THEM IN STORAGE 
:SEE rhe S UP YET 





3408 a#TRCOM 


DROUTS 
MOV @ASWR ,@#SWRTEM 
it i, aASWRTEM 


BR 
#177760 ,a#SWRTEM 
@ASWRTEM 


Sacsss 





_——© 





S UP 
A Tiny BETWEEN 0-16 











“ADD IT TO THE BC AND GO T 


SEG 20 


— 


LE CC I . 


— ee ee 





SEQ 21 
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844 : 

Bc : SETAE AEAAAAAARAAE RARER REREREEAERERARETE AES 
847 ; * INDEX TABLE OF DELAY PROGRAM DIRECTIVES * 
848 : SAA AAAAAAARAAARAEAEAERAERERARERERARAERRERERREEEE 
849 : 

850 ; 

$51 OO 268 p00 35 001510 TABLE: sDELAY 0 IS 

Bog 00155 137 001646 sDELAY 1 IS 

85. pet ee 000137 001646 sDELAY ¢ IS 

854 0015 ad 7 001702 sDELAY 3 IS 

855 1298 137 001752 sDELAY 4 IS 

856 001572 000137 002014 sDELAY 5 IS 

857 001576 000137 002014 :DELAY 6 IS I 

858 001602 137 002014 sDELAY 7 IS IRS 

859 001 000137 002150 sDELAY 10 IS FOR ERASE 

860 001 000137 002234 sDELAY 11 IS FOR WRITE 1.D.B. 
861 001616 ig ELA OOS See sDELAY 12 IS FOR 1.D.B. TIMI 
rg 001622 000137 002554 sDELAY 13 IS FOR ABORT WINDOW 
863 001626 0001357 002070 sDELAY 14 IS FOR LD CTRL + BUSY 
864 001632 0001357 001752 sDELAY 15 IS FOR GO PULSE DELAY 
865 001636 000137 002274 sDELAY 16 IS FOR M.S.D. DELAY 
rg: 001642 000137 001510 sDELAY 17 IS A NO-OP 

868 ; 

869 ; 

870 ; 
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002502 
000004 


177570 
001510 


000070 
000004 
004000 


164002 


177570 








@ARDY 
rd aATRWC 
#17, a4TRCOM “DO THE ERAS 
R5,a4RDY 








SAEEEATTAAAAEEAAAEAAAAAAEAKEEEKAEEE 


* ROUTINE FOR DELAYS 1 AND 2 * 


RETESET EAEAAARAARAKAAAEEAEARAAAARAEKREEE 


R5 ,@APCL ;DO A POWER CLEAR 

RO :CLEAR THE TIMER 

#4 ,R1 ;SET TIMING DELAY MULTIPLIER 
RO : TIMER IS TICKING 


sWAIT TILL ITS DONE 

“ONCE THROUGH THE TIMING LOOP 

*REPEA AT LOOP IF MULTIPLIER IS NON ZERO 
senete FOR A LOOP 

:DO IT AGAIN 

:GET NEXT TEST 


KEE EREAKEAKAEAKKERAAEEEKE 


* ROUTINE FOR DELAY 3 * 


REKEAAEEEAAKAEAAARAKEEEKAKEKE 


#70,R0 :SET UP DELAY MULTIPLIER 
#4 R1 :SET TIMING DELAY MULTIPLIER 
#4000 ,a#TRSTAT “FORCE AN RROR, WITH B.G.L. BIT 





MING LOOP 
“REPEAT LOOP IF MULTIPLIER IS NON ZERO 
sSEE IF WE pad TO DO IT AGAIN 


:GET THE NEXT DELAY DIRECTIVE 
eee eeeAEAREERKARARAREERERRARERRE 


* ROUTINE FOR DELAY 4 AND 15 * 


REATAAEAEKEKAEAAAAAEKAARARAKEREKEKEK 





44} FOR READY 
THIS a USED FOR AN ERASE COUNT 





:WAIT TILL DONE 

:SEE IF WE ERRORED OUT 

SEE IF WE LOOPON TEST 

;sLOOP HERE AND DO IT AGAIN 

GET OUT AND GET NEXT DELAY DIRECTIVE 


cee LLL LLL ALLL 


SEQ 22 | 


:0K LOOP BACK 
:DONE HERE DO A POWER CLEAR AND GET THE NEXT ONE 


SEQ 23 
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: KEEEEEAEEEAATAAAAAKAAAAAAEAEEAEKRAKAKRAEREE 

: * ROUTINE FOR DELAY 5 , 6 AND 7 “ 

2 KAEEAEAEATETAEAAAAAAAKAKRAEKKEAAEAAARAAEAEAKREKE 
002014 004537 002570 BRS: R5,a#OFLP {SEE IF WE ARE AT LOAD POINT 
902020 005037 164002 [CLEAR INHIBIT BIT 

0e4 010737 177774 164004 BRSA: :SET UP FOR A 10 BYTE WRITE 

002032 013737 000710 164006 “SET UP THE WRITE ADRESS BUFFER 
002040 012737 000003 164000 :D0 THE WRITE 
002046 004537 002522 WAIT FOR READY 
002052 004537 002540 : CHECK FOR ERRORS 
002056 105737 177570 If WE WANT TO LOOP 
002062 100760 “LOOP HERE AND DO IT AGAIN 
002064 000137 001510 :GET OUT AND GET NEXT DELAY DIRECTIVE 





KEKE KEAAAAKKAKKKEKKKKKAERKEK 


* ROUTINE FOR DELAY 14 * 


REREEEEKKEAAEAREKEKKEEKREKREKEKEKEK 











002070 004537 002624 BR6:. JSR :DO A REWIND GET TO B.0.T. 
002074 004537 002654 BR6C: JSR :CHECK FOR END OF TAPE ANYWAY 
002100 005037 164002 CLR CLEAR sa. INHIBIT BIT 

002104 005037 164004 CLR @ATRWC :CLEAR THE WORD COUNT 

002110 012737 000017 164000 MOV #17,a4TRCOM DO AN ERASE 

002116 005037 164000 BR6A: CLR a@#TRCOM sFORCE A LOAD PULSE 

002122 105737 177570 TSTB @A4SWR : SEE IF WE WANT TO LOOP 
002126 100004 BPL BR6B L DONE 

002130 105737 164000 TSTB @#TRCOM SEE IF ERASE IS DONE YET 
002134 100370 BPL BRO6A NOT DONE DO ANOTHER LOAD PULSE 
002136 000756 BR BR6C “DO IT AGAIN 

002140 004537 002502 BR6B: JSR  R5,aAPCL :DO A CLEAR AND EXIT 

002144 0001357 001510 JMP @ABR1 :GO BACK TO MAIN 





meee le . 





SEQ 24 
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: KEEKAETEEAAERAAKERAEAAAKAARAEEE 
* ROUTINE FOR DELAY 10 * 
s RRETATEATAAEAAAKAKARAEARAAAARKAAKEAK 
002150 004537 002654 BR10: JSR R5,a#ETS :CHECT FOR E.0.T 
002154 004537 002570 J F =GET US OFF LOAD POINT 
002160 005037 164002 CL LEAR 
00 164 012757 000017 164000 :DO A MAXIMUM ERASE 
172 012700 005000 BR10A :SET UP COUNTER 
00 176 012701 000004 :SET TIMING LOOP MULTIPLIER 
202 005300 BR108 :START COUNTDOWN 
002204 001376 STIMER IS TICKING 
06 005301 CE THROUGH TIMING LOOP 
10 001374 “REPEAT LOOP IF MULTIPLIER IS NON ZERO 
12 005037 164004 'RE ESTABLISH THE ERASE COUNT TO 0 
18 105737 177570 :SEE IF WE LOOP HERE 
100763 :DO IT A 
2224 004537 002502 :DO A POWER CLEAR 
002230 000137 001510 “GET OUT AND GET THE NEXT DELAY DIRECTIVE 








a + eee ee - —_—- - - en 








SEQ 25 
.P11 —- 18=NOV=-81 09:16 
: EEETEEAAAAAAEAAEAAAEAEARARAARAARAARAAREAAEAE 
: * ROUTINE FOR DELAY 11 AND 12. * 
: E2&EEEEESEATAEAAARARAARAAARAAARAAEAEEEAE 
002234 004537 002624 BR11: JSR RS, @#REW :DO A REWIND 
00 40 012737 000033 164000 MOV #35,a4TRCOM “WRITE AN I.D.B8. 
46 004537 002522 JSR  RS5,a#RDY “CHECK FOR DONE 
002252 0046537 002540 JSR R5.a#ERCK “SEE IF ANY ERRORS UP 
002 56 105737 177570 avsSwR “SEE IF WE WANT TO LOOP 
002262 100764 BMI R11 “LOOP BACK DO IT AGAIN 
002264 004537 002502 JSR R5,@APCL “DO A POWER CLE 
270 000137 001510 JMP aABRI “GET OUT AND GET NEXT DELAY DIRECTIVE 
: REEEETEEREAEAAEAEARARAAAEAAEEAREARER 
994 : * ROUTINE FOR DELAY 16 * 
: KETEAETEEKAAREAARARAARAARARAEAERE 
996 : 
002274 105737 164002 BR14: TSTB a@#TRSTAT *CHECK FOR EOT UP 
998 002300 100407 BMI BRIGA “SKIP THE FAST FORWARD 
999 002302 005037 164002 CLR “CLEAR INHIBIT 
1000 00 06 012737 000027 164000 MOV “DO A FAST FORWARD 
1001 é 14 004537 002522 JSR “WAIT TILL D 
1008 002320 005037 164002 BRIGA: CLR “CLEAR INHIBIT 
1003 002324 012737 000027 164000 MOV :TRY A FAST FORWARD ,SHOULD PRODUCE ERROR 
1004 00 2 004537 0023¢2 JSR *WAIT TILL D 
1005 105737 177570 TSTB “SEE IF WE LOOP HERE 
1006 00 100766 I “YES LOOP HERE 
1007 ; 4 004537 002502 JSR “DO A POWER CLEAR 
1008 002350 000137 001510 JMP “GET OUT DO NEXT DELAY 





Fa aa ar AR Oe a oe 
N 2 
| we 26 
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ero : SERA AAEEAAAARAARAAARAAEREARER 

101 : * ROUTINE FOR DELAY 13 * 

101 ‘ AAAAAAAAAAAAAERAAARAAREEKEEEE 

1014 . 

1015 002354 004537 002624 BR16: JSR RS,@#REW :D0 A REWIND 

eng 0C 005037 164002 CLR @ATRSTAT sCLEAR INHIBIT 

101 012737 1 MOV sSET UP ERASE COUNT 
1018 2 012737 O 7D0 AN ERASE 

1019 400 004537 :WAIT FOR IT 

1020 404 004537 sREWIND IT 

1021 410 0046537 sGET OFF LOAD POINT LEGALLY 
10 ¢ 414 012737 : 4 

10 0024 012737 sSET UP CORE ADDRESS 
1024 0024 005037 :CLEAR THE INHIBIT 

1025 0024 012737 :NOW TRY TO WRITE NOTHING, SHOULD ABORT 
10 : 442 012701 :SET UP TIME MULTIPLIER 
10 446 00 :CLEAR TIMER 

10 $ 450 00 : TIMES WAISTING 

10 452 00 : TIMER RUNNING 

10350 454 00 :~1 FROM MULTIPLIER 
1031 456 00 sSEE IF DONE YET 

10 4 460 00 sCLEAR ERRORS 

18 0 n° 10 : 2??? 

1 02470 10 :D0 IT AGAIN 

1035 472 00 sPOWER CLEAR 

8 $ 02476 00 :ALL DONE GET SOME MORE 


oe oe e+ - 


SIPS 04S OS OSSD SSSESS56 F 6 Be ee 0 Cee £6 80s Oe 8 Oe Oe eee a | et eee eee ee ee ee ———————EEEE —_—EE— eS. . - See OEE ae = -_->-~ -.co —- -> > 
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10 ; 

1039 : 

1040 ; 

1041 : SEELATCAAACAARCAEAAARAAREERAAAAAAAAAEE 

Ong : * SUBROUTINE FOR POWER CLEAR’ * 

104 s EEETEAEAAATAAAAEAAAAAAEEAAEAEARAAAREAE 

1048 ; 

1046 00 $02 052737 004000 164000 PCL BIS #4000, a#TRCOM :SET POWER CLEAR 

104 510 032737 004000 164000 PCL1 BIT #4000,a4TRCOM :WAIT FOR 900 MILI SECONDS 
1048 516 001374 BNE PCL1 :STILL WAITING 

He 2520 000205 RTS RS :RETURN TO MAIN ROUTINE 
He 7 

1026 : EAEAAAEEEEEAEAAKRAAAARAAAAAKAKRARERARARARAAREREAKEAE 
1054 s * SUBROUTINE FOR READY AND CLEAR INHIBIT * 
1055 : RARER TEAR AREREREEEEERERERRREEREEEKREKEKE 
MF ; 

105 : 

y's 002522 105737 164000 RDY: TSTB @ATRCOM ;CHECK ON DONE BIT 

1059 90025 8 100303 BPL DY sWAIT TILL DONE 

Ine? 0025 042737 000001 164002 IHB: BIC #1,@#TRSTAT :CLEAR THE INHIBIT BIT 
108¢ 002536 000205 RTS RS :RETUN TO MAIN ROUTINE 

1 : 

1084 ; 

1065 Ms KAKAEKKETAAAAAEAAEAEKRKRAAARAARKAKEARAREAREEKEREREK 

1068 ; * SUBROUTINE TO CHECK FOR ERRORS’ * 

1088 2 RAEEAAEEATAEARATEKAAAKEAAEARKEAAEKERAKRARKERAREKER 

1 : 

1 : 

1070 40 5737 164000 ERCK: TST @TRCOM :SEE IF ERROR IS UP 

1071 44 1 19 BPL ERCK2 : ROR OUT 

1006 46 01 df 177566 MOV #7,a4TTBUF :GOT AN ERROR RING A BELL 
107 54 105737 177564 ERCK1: TSTB @A#TTSTAT “WAIT HERE 

1074 60 100375 BPL ERCK1 :WAIT HERE 

1075 56 537 002502 JSR RS, ,@APCL :CLEAR THE ERROR WITH A POWER CLEAR 
1308 566 205 ERCK2: RTS RS :GO BACK TO MAIN 
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EAEAAAETEAEAAEEEAAAAEAEAAKAAKARAAARAAARAAKEKEAEKERE 


* SUBROUTINE TO GET OFF LOAD POINT LEGALLY * 


REKAEEEAEEETEEAEAAAAAAAEREAEAAEKAAAEKKEAREAREREAAEE 


QHee Se Se Be Se Se Be 


570 032737 000040 164002 OFLP: BIT #40, a#TRSTAT sSEE IF LOAD POINT IS UP 
576 001411 BEQ OFLP1 sNO LP JUMP OUT 

600 O03 087 16400 CLR a@#TRSTAT ;CLEAR THE INHIBIT 

604 012737 000033 164000 MOV #33,a4TRCOM sWRITE AN I.D.B. 

612 tess 002522 JSR o @ARDY sWAIT FOR READY 

616 537 002540 JSR R5,ERCK ; CHECK FOR ERRORS 
2522 000205 OFLP1: RTS = R5 :GO BACK TO MAIN 


KEEAAAAEAAKAEARARKKERAKEAKREEEKRAKKEKAKRKEE 


* SUBROUTUNE FOR REWIND AND L.P. * 


RAETEEAAREAEKAAEKAKKEEAAEKKAEEEEREKEEKEKKEKS 


SPESAS EELS St tt ee 





SS Pe ee ee ee ee ee eee eee eS LE LL Lee ee ee 


624 032737 000040 164002 REW: BIT #40,a4TRSTAT sAT LOAD POINT?? 
100 632 001007 BNE REW2 “YES DON'T NEED REWIND 
101 6 005037 164002 REW!: CLR @ATRSTAT :CLR THE INHIBIT 
1 ¢ 640 pret 000021 164000 MOV #21,a4TRCOM :D0 A REW 
1 646 004537 002522 JSR RS,@ARDY sWAIT TILL DONE 
We 652 000205 REW2: RTS R5 :G0 BACK 
1 : KEEEAEREERERKEEAAAEEEKREREKKKKEK 
10 ; * SUBROUTINE FOR E.0.T. * 
+: : REKRERAEEAKERAKEKEKEREEEERERKKKE 
1 ; 
110 002654 105737 164002 Ere: TSTB @ATRSTAT sI1S END OF TAPE UP ? 
111 002660 100002 BPL ETS! sNOT AT E.0.T. 
16 Be 662 004537 002624 JSR R5S,a@4REW :D0 A REWIND 
2 666 000205 ETS1: RTS RS :GET BACK 
115 : 
116 : 


ee a, 
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1117 5 | 
1118 ; 

1119 : RAEAARERERAAEEREREAREKAERAAEKAAEE ) 
1120 ; * WRITE BUFFER PATTERNS * | 
1121 . REARAERERERAAEEERAERRERERKEKRKEKE 

11 : 

1138 

1124 : .=2700 

1125 : -REPT 1000 3ALL 1°S 

1126 ; -WORD 000777 :PATTERN = 0 000 000 111 117 111 

1127 : -ENDR 

11 S ; 

11 : 

11 : .=3700 

11351 ; -REPT 1000 31°S AND 0°S ALTERNATE WORDS 

11 ¢ : «WORD 000400 sPATTERN = 0 000 000 100 000 000 

11 : -WORD 000777 sPATTERN = 0 000 000 117 117 1117 

1134 ; ~ENDR 

1135 : 

11 : 

113 .=47 

1138 ; eREPT 1000 :ALTERNATE BITS 

1139 : -WORD 000525 :PATTERN = 0 000 000 101 010 101 

1140 ; -WORD 000652 :PATTERN = 0 000 000 110 101 010 

1141 ; ENDR 

1128 : 

114 : 

1144 : i 

1145 ; REP 1000 sSLIDING 1 BIT 

1168 : F sPATTERN = 0 000 000 000 000 001 

114 : ‘ :PATTERN = 0 000 000 000 000 010 

1148 : . sPATTERN = 0 000 000 000 000 100 

1149 ; ‘ :PATTERN = 0 000 000 000 001 000 

1150 : ‘ :PATTERN = 0 000 000 000 010 000 

1151 ; : :PATTERN = 0 000 000 000 100 000 

1136 : - 0001 :PATTERN = 0 000 000 001 000 000 
115 ; . sPATTERN = 0 000 000 010 000 000 

W128 ; i :PATTERN = 0 000 000 100 000 000 

1156 ; 

1157 : 

1158 : ReERAERAAERAERERAEERKAERKKKE 

1159 5 * READ BUFFER AREA * 

1160 : KKARARRREREEEEREREKEKKEE 

163 

1168 > .=6700 -1000 WORD LOCATIONS RESERVED FOR READ BUFFER 
1165 ; 

1166 000001 END 





ALD 


BEGIN 
BEGIN2 


s 





LAIR) <2 <3] 3 2 2 = 2. ot ot =) La 
» SABSTS*-SSO 


4 
4A 
5 
6 










SRex 


_—— 
Nw 


MNO 


WANN 


wiry 


+oe 


Ssooes 






SSRRRES 
CARR UL= 
NMOAAONS 


ee NN UNM 
OaoLlfo 









=O - OOo vs 


506 Mri o 
SSRSSsSse 
SoOOos 


SOF 


Wis UO 


& 





> 





oe oe oe oe oe oe oe oe oe 


+ 


> 


eS 








—_ 


> 








. 





cme oon mnenene 
yous 
oorom 





Soe 






ated 3 edadand 
cocppcUO OS oop 





BU2Z35 FAVVIR 
See 


w= 
“Ww 


703 
801 





851 


11104 


8124 


e 3 
SEQ 30 


CROSS REFERENCE TABLE -- USER SYMBOLS 


866 884 901 914 929 948 969 987 1008 1036 


985 


883 


9204 


774 


10704 1090 






CZTRBD.P11 
35 
OFLP 57 
OFLP1 ¢ 
OPDEL 1 
OPDL x 16 
OPDLY 714 
OPNUM 7 
OPTBL 7 
PASHLT 14 
CL 00250 
PCL1 9 51 
PSW = 1 $ 
001144 
RADOR 7 
RDY 25 
READ 0012 
0014 
002624 
aS 
3652 


3s 


TRBA = | 
TRCOM = 164000 
TRSTAT= 164002 
TRWC 


18-NOV-81 09:16 





=) 
ar 


SMSWMVIVIN — — 
eS PR 
22 2 & 


Saeeeak” 


& 


VINA AA COAUIMIOWN 
= 


xz 


MOU'O 
Ww 
co 

ae 











5904 
10854 


968 986 
982 1001 
1020 10994 








5964 6014 





; 2 
CROSS REFERENCE TABLE -~- USER SYMBOLS 


1007 


1004 


1112 


612m 


1032 


1019 


912 
841 


729% 


768 
1046* 


938s 


965* 


6604 


1035 


10584 


714 


10464 


1059 


942 


756 


909* 


1058 
997 


1022* 


796 


1075 
1089 1103 
966 984 
771% 772 
924 940* 
1070 1088* 
1002* 
800 8294 


SEQ 31 


1033 


779 


944 
1024* 


G 3 
CZTRED.P11 18-NOV-81 09:16 CROSS REFERENCE TABLE -- USER SYMBOLS 


. ABS. 002670 000 


ERRORS DETECTED: 0 
CETRRO/] -CETRED, SEO CAE /SOL/ML. : TOC=CTTRED P11 
RUN-TIME: 1 2 .2 SECONDS 


RUN-TIME RATIO: 6/4=1.4 
CORE USED: 16k (31 PAGES) 


